Sample4c.asp VC++ ASP文件上传组件源代码+调用示例-源码程序 - vc源码程序

www.gusucode.com > VC++ ASP文件上传组件源代码+调用示例-源码程序 > VC++ ASP文件上传组件源代码+调用示例-源码程序/code/asp_demo/ASPUploader Samples/Sample4c.asp

    <%@ LANGUAGE=VBScript%>
<html>
<head>
<link href="style.css" rel=stylesheet type=text/css>
<title>ASP Uploader Sample 4c</title>
</head>
<body>
<h1>Sample 4c: Access form Data VBScript [for each]</h1>
<br>
<table width=100% cellpadding=2><tr><td bgcolor="#000000">
<table width=100% bgcolor="#000000" cellpadding=4>
<tr bgcolor=#bbeeff>
    <td align=center>Item Name</td>
    <td align=center>Count</td>
    <td align=center>Value</td>
    <td align=center>Subitems</td>
</tr>
<%
	Dim form
	Set form = Server.CreateObject("MyRequest.Form")
	form.Init
	For each Item In form
%>
<tr bgcolor=#ffffff>
    <td align=center style="font-size:60%"><%=Item.Name%></td>
    <td align=center style="font-size:60%"><%=Item.Count%></td>
    <td align=left style="font-size:60%; color:#338888"><%=Item.Value%></td>
    <td align=left style="font-size:60%; color:#ff0000">
<%
		Dim j
		j = 1
		For each SubItem In Item
			If SubItem.IsFile() <> 0 Then
				Response.Write "<b>Item[" & j & "] =</b> Uploded File <br><b>File Name: </b> " & SubItem.FileName & "<br><b>ContentType: </b> " & SubItem.ContentType & "<br><b>TotalBytes: </b> " & SubItem.TotalBytes & "<br>"
			Else
				Response.Write "<b>Item[" & j & "] =</b>" & SubItem.Value & "<br>"
			End If
			j = j + 1
		Next
%>
   </td>
</tr>
<%
	Next
%>
</table>
</td></tr></table>
<br>
<div>
Designed by Al-Mutairi, Fayez <br>
e-mail: <a href="mailto:fayezmm@yahoo.com">fayezmm@yahoo.com</a><br>
Copyright? 2001
</div>
</body>
</html>